home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / dod_rr10.zip / RR.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-05-23  |  4KB  |  184 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING002
  27.     String   STRING003
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     GetUser
  32.     INTEGER007 = 1
  33.     INTEGER003 = 30
  34.     Log Chr(27) + "[0;31mRussian Roulette v1.00 Coded by Al Bundy", 1
  35.     If (Psa(6)) Goto LABEL001
  36.     Newline
  37.     PrintLn "@BEEP@@X04ERROR@X01: @X03NOTES PSA WAS NOT DETECTED."
  38.     Log "ERROR: NOTES PSA WAS NOT DETECTED.", 0
  39.     Log Chr(27) + "[0;31mRussian Roulette v1.00 Coded by Al Bundy", 1
  40.     End
  41.     :LABEL001
  42.     If (U_Notes(2) == "") Then
  43.         PrintLn "@X01Creating new account . . ."
  44.         U_Notes(2) = "0"
  45.         PutUser
  46.         GetUser
  47.     Else
  48.         INTEGER002 = U_Notes(2)
  49.     Endif
  50.     Cls
  51.     PrintLn "@X04Welcome to Russian Roulette @X05v1.00@X04 Coded by @X05Al Bundy"
  52.     Newline
  53.     PrintLn "@X03This is the place where you test your luck.  The odds are in @X06YOUR @X03favor"
  54.     PrintLn "so there is a @X06VERY @X03good chance of winning.  However if you loose you @X06DIE@X03,"
  55.     PrintLn "which means the @X06SYSTEM@X03 will @X06HANGUP@X03 on you and you will not be allowed to"
  56.     PrintLn "call back today.  I think its fair.  So are you man enough to play?"
  57.     Newline
  58.     InputStr "The choice is yours (@X06Y@X03/@X06N@X02): _", STRING002, 2, 3, "YNyn", 256 + 8
  59.     Newline
  60.     If ((STRING002 == "N") || (STRING002 == "")) Goto LABEL003
  61.     PrintLn "@X06Very well then.  Here we go."
  62.     :LABEL002
  63.     INTEGER007 = 0
  64.     STRING003 = ""
  65.     InputStr "How many minutes are you betting (@X061@X03-@X069@X02): _", INTEGER007, 2, 1, "123456789", 256 + 8
  66.     INTEGER005 = Random(5) + 1
  67.     Print "@X02Loading chaimber @X03. . . "
  68.     Delay 25
  69.     PrintLn "@X07DONE!"
  70.     Print "@X02Putting @X06GUN @X02to your head @X03. . . "
  71.     Delay 25
  72.     PrintLn "@X02@X07DONE!"
  73.     Print "@X02Pulling the trigger @X03. . . "
  74.     Delay 25
  75.     INTEGER006 = Random(5) + 1
  76.     If (INTEGER006 == INTEGER005) Then
  77.         PrintLn "@X04BANG!"
  78.         PrintLn "YOU ARE DEAD!"
  79.         Newline
  80.         PrintLn "@X07You lost your life and @X06" + String(INTEGER003) + " @X07minutes."
  81.         PrintLn "@X07Thanks for playing, call back and play again!"
  82.         GetUser
  83.         AdjTime -INTEGER003
  84.         PutUser
  85.         Log "User was SHOT and KILLED!", 0
  86.         Log Chr(27) + "[0;31mRussian Roulette v1.00 Coded by Al Bundy", 1
  87.         Bye
  88.         End
  89.     Else
  90.         PrintLn "@X05CLICK!"
  91.         PrintLn "LUCK HAS SMILED IN YOUR FACE!"
  92.         INTEGER001 = INTEGER001 + INTEGER007 + Random(43)
  93.         INTEGER004 = INTEGER004 + INTEGER007
  94.         Log "User won: " + String(INTEGER007) + " minutes", 0
  95.         GetUser
  96.         AdjTime +INTEGER007
  97.         PutUser
  98.         InputStr "Would you like to play again (@X06Y@X03/@X06N@X02): _", STRING003, 2, 3, "YNyn", 256 + 8 + 128
  99.         If (STRING003 == "Y") Then
  100.             Newline
  101.             PrintLn "@X06Here we go AGAIN!"
  102.             Goto LABEL002
  103.         Endif
  104.     Endif
  105.     INTEGER002 = INTEGER002 + INTEGER001
  106.     U_Notes(2) = String(INTEGER002)
  107.     PutUser
  108.     Newline
  109.     PrintLn "@X07Today you have won @X06" + String(INTEGER004) + " @X07minutes."
  110.     PrintLn "@X07Your current score is @X06" + String(INTEGER001) + "@X07."
  111.     PrintLn "@X07Your total score is @X06" + String(INTEGER002) + "@X07."
  112.     PrintLn "@X07Thanks for playing, come again!"
  113.     Log Chr(27) + "[0;31mRussian Roulette v1.00 Coded by Al Bundy", 1
  114.     End
  115.     :LABEL003
  116.     Log Chr(27) + "[0;31mRussian Roulette v1.00 Coded by Al Bundy", 1
  117.     Newline
  118.     PrintLn "@X04So, we got us a @X06CHICKEN@X04.  But don't be insulted only real man play this game."
  119.     Newline
  120.     End
  121.  
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Usage report (before postprocessing)
  125. ;
  126. ; ■ Statements used :
  127. ;
  128. ;    4       End
  129. ;    1       Cls
  130. ;    8       Goto 
  131. ;    12      Let 
  132. ;    3       Print 
  133. ;    22      PrintLn 
  134. ;    5       If 
  135. ;    4       GetUser
  136. ;    4       PutUser
  137. ;    2       AdjTime 
  138. ;    8       Log 
  139. ;    3       InputStr 
  140. ;    3       Delay 
  141. ;    9       Newline
  142. ;    1       Bye
  143. ;
  144. ;
  145. ; ■ Functions used :
  146. ;
  147. ;    1       +
  148. ;    1       -
  149. ;    25      +
  150. ;    5       ==
  151. ;    4       !
  152. ;    1       ||
  153. ;    5       Chr()
  154. ;    3       Random()
  155. ;    6       String()
  156. ;    1       Psa()
  157. ;
  158. ;------------------------------------------------------------------------------
  159. ;
  160. ; Analysis flags : WA
  161. ;
  162. ; W - Write user ■ 5
  163. ;     Program writes a user record. Although this may be normal for a
  164. ;     User Editor, it may also be a way to modify an account level.
  165. ;     ■ Search for : PUTUSER
  166. ;
  167. ; A - Adjust online time remaining ■ 5
  168. ;     Program modify the amount of online time remaining, this may
  169. ;     be a way to bypass time limits
  170. ;     ■ Search for : ADJTIME
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Postprocessing report
  175. ;
  176. ;    0       For/Next
  177. ;    0       While/EndWhile
  178. ;    3       If/Then or If/Then/Else
  179. ;    0       Select Case
  180. ;
  181. ;------------------------------------------------------------------------------
  182. ;                 AEGiS Corp - Break the routines, code against the machines!
  183. ;------------------------------------------------------------------------------
  184.